home *** CD-ROM | disk | FTP | other *** search
/ Professor Iris Fun Field Trip: Seaside Adventure / Professor Iris - Fun Field Trip: Seaside Adventure.iso / pc / discovry / shared.dir / 00891_Help Button Script.ls < prev    next >
Encoding:
Text File  |  1995-05-03  |  751 b   |  33 lines
  1. on mouseDown
  2.   doButtonHilite()
  3. end
  4.  
  5. on mouseUp
  6.   global gPageNum, gCategoryName, gPoemChannel
  7.   if rollOver(the clickOn) then
  8.     puppetSound("mouseClick")
  9.     updateStage()
  10.     if gCategoryName = "R" then
  11.       stopAllSound()
  12.       set the visible of sprite gPoemChannel to 0
  13.     else
  14.       if (gCategoryName = "S") or (gCategoryName = "V") then
  15.         videoStopAllSound()
  16.       else
  17.         if gCategoryName = "G" then
  18.           stopAllSound()
  19.           do("IndexHelpPrep" & gPageNum)
  20.         else
  21.           if gCategoryName = "P" then
  22.             stopAllSound()
  23.             paintStartIndex()
  24.           end if
  25.         end if
  26.       end if
  27.     end if
  28.     set gPlayFlag to 0
  29.     set the mouseDownScript to "InterruptHelp"
  30.     go("Help")
  31.   end if
  32. end
  33.